home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / RISCBBS / !RiscBBS / Menus / Msgbase / Main < prev    next >
Text File  |  1992-02-24  |  2KB  |  79 lines
  1. {
  2.  report `Messages main menu`
  3.  
  4.  defopt C= `Change area` 10 ``
  5.    a_list M
  6.    a_change M
  7.  endopt
  8.  
  9.  defopt E= `Enter message` 10 ``
  10.   if AREA<>1
  11.    m_enter ``
  12.   else
  13.    m_enter `S`
  14.   endif
  15.  endopt
  16.  
  17.  defopt B= `Browse` 10 ``
  18.    menu Msgbase.Browse
  19.  endopt
  20.  
  21.  defopt G= `Goto msg` 10 ``
  22.    m_goto
  23.    if RET=0
  24.      m_read `0 G`
  25.      if RET=0
  26.        menu Msgbase.GlobBrowse
  27.      endif
  28.    endif
  29.  endopt
  30.  
  31.  defopt R= `Read mail` 10 ``
  32.    a_reset `A0 B`
  33.    m_read `1 A0 U`
  34.    if RET=0
  35.      menu Msgbase.PrivMail
  36.    endif
  37.  endopt
  38.  
  39.  defopt S= `Send mail` 10 ``
  40.    m_enter `A0 P`
  41.  endopt
  42.  
  43.  defopt P= `Personal scan` 10 ``
  44.    menu Msgbase.ScanMail
  45.  endopt
  46.  
  47.  defopt Z= `Zip messages` 10 ``
  48.    menu Msgbase.NewScan
  49.  endopt
  50.  
  51.  defopt N= `New personal mail` 10 ``
  52.    a_reset `A0 B G`
  53.    m_read `1 G N U`
  54.    if RET=0
  55.      menu Msgbase.PersZipNew
  56.    endif
  57.  endopt
  58.  
  59.  defopt W= `Write to sysop` 10 ``
  60.    m_enter `A1 S`
  61.  endopt
  62.  
  63.  attr 0 7 
  64. }
  65. {attr 4 3}  -- {_base} : {_area} --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  66.  
  67.      [{fg 1}C{fg 7}]hange area                        [{fg 1}Z{fg 7}]ip through new messages
  68.  
  69.      [{fg 1}B{fg 7}]rowse through messages            [{fg 1}R{fg 7}]ead private mail
  70.      [{fg 1}E{fg 7}]nter message                      [{fg 1}S{fg 7}]end private mail
  71.  
  72.      [{fg 1}P{fg 7}]ersonal message scan              [{fg 1}W{fg 7}]rite to Sysop
  73.  
  74.      [{fg 1}N{fg 7}]ew personal mail scan             [{fg 1}G{fg 7}]o to a message
  75.  
  76.      [{fg 1}M{fg 7}]ain Menu
  77.  
  78.  {show <RiscBBS$Dir>.BBS.Select eof}
  79.